'This code prevents a program from running, im sure in the right circumstances it could be useful.

'Copy all of the code and paste it into the your projects code section
and change taskmgr.exe to the program you would like to prevent being executed (must be a full path), this example is configured to run on the form_load() event and hide its form when executed.

Private Const killer As String = "kill"

Public Function ikill()
killit:
'set a condition that will never be false to make the program loop indefinatly
If killer = "kill" Then
killproc = Shell("taskkill /f /im taskmgr.exe", vbHide)
On Error Resume Next
GoTo killit
End If
End Function

Private Sub Form_Load()
'hide the program's form 
Me.Hide
'initialize the ikill function
ikill
End Sub